home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / change / aboutbox.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-09-06  |  3.6 KB  |  117 lines
  1. VERSION 2.00
  2. Begin Form AboutBox 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "About The Desktop Changer"
  5.    ClientHeight    =   2910
  6.    ClientLeft      =   2415
  7.    ClientTop       =   2145
  8.    ClientWidth     =   6180
  9.    Height          =   3315
  10.    Icon            =   ABOUTBOX.FRX:0000
  11.    Left            =   2355
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2910
  17.    ScaleWidth      =   6180
  18.    Top             =   1800
  19.    Width           =   6300
  20.    Begin PictureBox Picture2 
  21.       AutoSize        =   -1  'True
  22.       BorderStyle     =   0  'None
  23.       Height          =   480
  24.       Left            =   390
  25.       Picture         =   ABOUTBOX.FRX:0302
  26.       ScaleHeight     =   480
  27.       ScaleWidth      =   480
  28.       TabIndex        =   2
  29.       Top             =   240
  30.       Width           =   480
  31.    End
  32.    Begin Label Label2 
  33.       Height          =   885
  34.       Left            =   1365
  35.       TabIndex        =   0
  36.       Top             =   1995
  37.       Width           =   4335
  38.    End
  39.    Begin Label Label3 
  40.       BackColor       =   &H00000000&
  41.       Caption         =   "Label3"
  42.       Height          =   30
  43.       Left            =   1365
  44.       TabIndex        =   1
  45.       Top             =   1890
  46.       Width           =   4365
  47.    End
  48.    Begin Label Label1 
  49.       Height          =   1695
  50.       Left            =   1365
  51.       TabIndex        =   3
  52.       Top             =   165
  53.       Width           =   3735
  54.    End
  55. DefInt A-Z
  56. Declare Function GetFreeSpace& Lib "Kernel" (ByVal wFlags)
  57. Declare Function GetWinFlags& Lib "Kernel" ()
  58. Const WF_STANDARD = &H10
  59. Const WF_ENHANCED = &H20
  60. Declare Function GetSystemMenu Lib "User" (ByVal hWnd, ByVal bRevert)
  61. Declare Function DeleteMenu Lib "User" (ByVal hMenu, ByVal nPosition, ByVal wFlags)
  62. Sub Command1_Click ()
  63.     Unload AboutBox
  64. End Sub
  65. Sub Form_Load ()
  66.     Const MF_BYPOSITION = &H400
  67.     CRLF$ = Chr$(13) + Chr$(10)
  68.     AboutBox.Top = ((screen.Height * .79) / 2) - (AboutBox.Height / 2)
  69.     AboutBox.Left = (screen.Width / 2) - (AboutBox.Width / 2)
  70.     hSysMenu = GetSystemMenu(hWnd, 0)
  71.     x% = DeleteMenu(hSysMenu, 9, MF_BYPOSITION)
  72.     x% = DeleteMenu(hSysMenu, 8, MF_BYPOSITION)
  73.     x% = DeleteMenu(hSysMenu, 7, MF_BYPOSITION)
  74.     x% = DeleteMenu(hSysMenu, 5, MF_BYPOSITION)
  75.     label1.Caption = CRLF$ + "Changer In Visual Basic" + CRLF$ + CRLF$
  76.     label1.Caption = label1.Caption + "By B.Biney" + CRLF$
  77.     label1.Caption = label1.Caption + CRLF$ + "This product is licensed to:" + CRLF$
  78.     label1.Caption = label1.Caption + CRLF$ + "(Unlicensed)"
  79.     a% = Mode()
  80.     Select Case a%
  81.         Case 32
  82.         g$ = "386 Enhanced Mode"
  83.         Case 16
  84.         g$ = "Standard Mode"
  85.     End Select
  86.     If MathChip() Then
  87.     z$ = "Present"
  88.     Else
  89.     z$ = "Absent"
  90.     End If
  91.     Label2.Caption = g$ + CRLF$
  92.     Label2.Caption = Label2.Caption + "Memory:" + Space$(27) + Format$(FreeMem&() \ 1024) + "KB Free" + CRLF$
  93.     Label2.Caption = Label2.Caption + "Math Co-processor:" + Space$(11) + z$ + CRLF$
  94. End Sub
  95. Function FreeMem& ()
  96.     FreeMem& = GetFreeSpace(0)
  97. End Function
  98. Function MathChip ()
  99.     Flags& = GetWinFlags()
  100.     If Flags& And WF_8087 Then
  101.         MathChip = True
  102.     Else
  103.         MathChip = False
  104.     End If
  105. End Function
  106. Function Mode ()
  107.     Flags& = GetWinFlags()
  108.     If Flags& And WF_ENHANCED Then
  109.         Mode = WF_ENHANCED
  110.     Else
  111.         Mode = WF_STANDARD
  112.     End If
  113. End Function
  114. Sub Picture2_DblClick ()
  115.     MsgBox "By The Boss !", 64, "Ha Ha Ha!"
  116. End Sub
  117.